Option Explicit
Sub A_Sample059()
    Dim myWb  As Workbook
    Dim myStr As String
    myStr = "A_Sample059.xls"		'wïW
    'ǳƨ즹
    Set myWb = Workbooks(myStr)
        MsgBox myWb.Name
    Set myWb = Nothing  '
End Sub
